perm filename T.F4[MUS,LCS]1 blob sn#171837 filedate 1975-08-05 generic text, type T, neo UTF8
00100		DIMENSION K(2000)
00700	10	ACCEPT 11,L
01300	20	CALL DPYSET(1,K,2000)
01400		CALL DPYBIG(6)
01500		CALL DPYTXT(-70,0,'X=',1)
01600		CALL DPYTXT(0,0,NUMDPY(L),1)
01700		CALL DPYOUT(1)
01800		CALL SAVDPY(K)
01900	11	FORMAT(I)
02100		END